home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Adventurer's / ImpPro / Scripts / Invert.dungeon < prev    next >
Text File  |  1995-05-02  |  1KB  |  51 lines
  1. /* Inverts a Dungeon by changing walls to spaces and spaces to walls  :)
  2.    (C) Zach Forsyth 1995
  3.    $VER: 0.41
  4.     Modified by LORENT Michel on 18-Apr-1995.
  5. */
  6.  
  7. /* initialization of invert table */
  8. do i = 0 to 30
  9.     invert.i = 0
  10. end
  11. invert.0  = 1
  12. invert.1  = 0
  13. invert.2  = 5
  14. invert.3  = 4
  15. invert.4  = 3
  16. invert.5  = 2
  17. invert.20 = 21
  18. invert.21 = 20
  19. invert.22 = 23
  20. invert.23 = 22
  21.  
  22. options results
  23. address IMPDUNGEON.1
  24.  
  25. GET MAPX
  26. max_x = RESULT         /* Get the maximum X value */
  27. GET MAPY
  28. max_y = RESULT         /* Get the maximum Y value */
  29. GET BRUSH
  30. orig_brush = RESULT    /* Store user's original brush */
  31.  
  32. b0 = orig_brush
  33. do y = 0 to max_y
  34.    s = "Inverting line " || y || " of " || max_y
  35.    MESSAGE s
  36.    do x = 0 to max_x
  37.       MAP x y
  38.       b = RESULT
  39.         invb = invert.b
  40.         if invb ~= b0 then do
  41.             SETBRUSH invb
  42.             b0 = invb
  43.         end
  44.       PAINT x y
  45.       ok = RESULT
  46.    end
  47. end
  48.  
  49. MESSAGE               /* Proper script behavior, return things to */
  50. SETBRUSH orig_brush   /* the way they were before the script ran  */
  51.